#! /usr/bin/perl

use diagnostics;
use strict;

my %a;
$a{'a'} = 'a';
my %b = ('b' => 'b', %a);
print "ae" if exists $b{'a'};
